home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / mail / thor201.lha / THOR_2.0 / thor.lha / rexx / examples / ConfList.br < prev    next >
Text File  |  1995-05-15  |  530b  |  37 lines
  1. /* ConfList.br 
  2.  * 
  3.  * Get conf list for a bbs.
  4.  */
  5.  
  6.     parse arg argument
  7.  
  8.     if(argument = '') then
  9.     do
  10.         say '$VER: ConfList.br V3.1 (10.08.94)'
  11.         say 'Template: BBSNAME/A'
  12.         exit
  13.     end
  14.  
  15.     if ~show('p', 'BBSREAD') then do
  16.         address command
  17.             "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  18.             "WaitForPort BBSREAD"
  19.     end
  20.     
  21.     address BBSREAD
  22.  
  23.     GETCONFLIST stem CONFLIST argument 
  24.     if(rc ~= 0) then 
  25.     do
  26.         say BBSREAD.LASTERROR
  27.         exit
  28.     end
  29.  
  30.     say 'Available conferences:'
  31.  
  32.     do i=1 to CONFLIST.COUNT
  33.         say ' ' || CONFLIST.i
  34.     end
  35.  
  36.     exit
  37.